﻿Imports DotNetNuke.Entities.Modules

Namespace RTP.RTPTooltip

    Public Class RTPTooltipBase
        Inherits PortalModuleBase

#Region " Shadow PMB Settings "

#Region " Variables "

        Private _settings As RTPTooltipSettings

#End Region

#Region " Properties "
        Public Shadows Property Settings() As RTPTooltipSettings
            Get
                If _settings Is Nothing Then
                    Dim rtp As New RTPTooltipSettings
                    _settings = rtp.GetRTPTooltipSettings(ModuleId)
                End If
                Return _settings
            End Get
            Set(ByVal Value As RTPTooltipSettings)
                _settings = Value
            End Set
        End Property

#End Region

#Region " Public Methods "
        Public Function StringToArray(ByVal inString As String) As String()
            Return inString.Split(CChar(","))
        End Function

        Public Function ArrayToString(ByVal inArray As String()) As String
            Dim strComma As String = ""
            Dim outString As String = ""
            If Not inArray Is Nothing Then
                For Each strItem As String In inArray
                    outString = outString & strComma & strItem
                    strComma = ","
                Next
            End If
            Return outString
        End Function
#End Region


#End Region
    End Class
End Namespace
